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Abstract 


A CRAY-1  cross  assembler  is  described.  It  is  written 
in  Fortran,  and  developed  on  an  Amdahl  470/V6.  The  source 
code  accepted  is  very  close  to  that  of  the  CRAY  Research 
assembler,  and  the  object  code  produced  is  compatible 
with  the  University  of  Michigan  CRAY-1  simulator.  The 
assembler  and  simulator  form  a powerful  tool  for  developing 
assembly  language  programs. 
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SECTION  I.  INTRODUCTION 


The  CRAY-1  Cross  Assembler  has  been  prepared  as  an  aid 
for  developing  CRAY-1  assembly  language  programs.  It  is  de- 
signed to  be  used  in  conjunction  with  the  CRAY-1  Simulator. 
Programs  developed  with  the  assembler/simulator  should  run 
with  little  or  no  modification  on  the  CRAY-1. 

The  assembler  will  make  available  to  the  simulator  the 
definitions  of  all  symbols  defined.  This  allows  program  con- 
trol and  examination  and  manipulation  of  registers  and  memory 
by  referencing  the  same  names  used  in  the  assembly  language 
program. 

Either  relocatable  or  absolute  object  modules  may  be 
produced.  Assembly  language  routines  may  identify  multiple 
entry  points,  and  reference  external  routines.  Relocation 
and  the  resolving  of  external  symbols  is  performed  by  the 
simulator. 

The  assembler  will  accept  all  instructions  accepted  by 
the  CRAY-Research  Assembler  (CAL) , including  the  special  syntax 
forms.  A subset  of  the  pseudo  ops  are  accepted. 
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SECTION  II.  PROGRAM  STRUCTURE 


The  program  to  be  assembled  consists  of  one  or  more 
modules.  Each  module  begins  with  an  IDENT  record  and  ends  with 
and  END  record.  Cards  between  the  END  record  of  a module  and 
the  IDENT  record  of  the  next  module  are  treated  as  comments. 

Statement  Syntax 

Every  assembler  statement  consists  of  four  fields:  the 
label  field,  the  result  field,  the  operand  field,  and  the  com- 
ment field.  Up  to  90  columns  may  be  used.  All  four  fields  may 
be  omitted. 

The  label  field  is  generally  optional,  but  is  required  by 
certain  pseudo  ops.  If  present  it  must  begin  in  column  one  or 
column  two.  It  must  meet  the  syntax  requirements  of  symbols. 

The  result  field  must  begin  before  column  35.  If  a label 
is  present,  the  result  field  must  begin  at  least  one  space  after 
the  label.  If  there  is  no  label  field,  the  result  field  must 
begin  after  column  2. 

The  operand  field,  if  present,  must  begin  at  least  one 
space  beyond  the  result  field  and  before  column  35. 

The  comment  field  must  begin  at  least  one  space  after  the 
operand  field.  If  the  operand  field  is  not  used,  the  comment 
field  must  start  at  least  one  space  after  the  result  field.  If 
the  operand  field  for  a particular  instruction  is  optional, the 
comment  field  must  start  at  or  beyond  column  35. 

Symbols 

Symbols  may  be  one  of  six  types:  relocatable  parcel  address, 
relocatable  word  address,  absolute  parcel  address,  absolute  word 
address,  value,  or  undefined. 

Symbols  are  most  commonly  given  values  through  their  appear- 
ance in  the  label  field  of  an  instruction.  In  this  case,  the 
symbol  will  be  a parcel  address.  The  symbol  will  additionally  be 
relocatable  or  absolute,  depending  on  the  type  of  assembly  in  pro- 
gress. Some  pseudo  ops,  such  as  BSS  and  BSSZ  define  symbols  as 
word  addresses.  A symbol  can  be  defined  as  type  value  by  using 


2 


the  = or  SET  pseudo  op,  with  the  operand  field  containing  a 
value  expression. 

The  first  character  of  a symbol  must  be  alphabetic,  $, 

% or  0.  The  remaining  characters  may  be  alphabetic,  numeric, 

S,  % or  @ . Symbols  may  have  at  most  eight  characters.  If 
more  than  eight  are  present,  the  symbol  will  be  truncated. 

Constants 

Constants  will  be  interpreted  in  base  10  or  base  8,  de- 
pending on  the  last  BASE  pseudo  op  encountered.  This  may  be 
overriden  by  preceeding  the  constant  with  a D'  for  base  10, 
or  an  0’  for  base  8. 

Constants  are  treated  as  type  value  for  the  purpose  of 
expression  evaluation,  with  one  exception:  an  octal  constant 
whose  last  digit  is  A,  B,  C or  D is  treated  as  a parcel  address. 

Special  Symbols 

Only  one  special  symbol  is  allowed.  This  is  *,  and  re- 
presents the  parcel  address  of  the  instruction  in  which  it 
appears. 

Expressions 

Expressions  are  composed  of  one  or  more  constants  or 
symbols,  joined  by  the  operators  +,  -,  * or  /.  Constants  or 
symbols  joined  by  * or  / will  be  combined  first,  then  constants 
or  symbols  joined  by  + or  -.  The  type  of  expression  resulting 
is  rather  complex,  and  so  is  presented  in  tabular  form  on  the 
following  page. 
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SECTION  III.  INSTRUCTIONS  AVAILABLE 


The  cross  assembler  supports  all  of  the  instructions 
currently  accepted  by  the  CRAY-Research  Assembler,  including 
the  special  syntax  forms.  These  are  presented  on  the  follow- 
ing pages. 

In  addition,  two  instructions  are  available  for  simulator 
control.  These  are  ERT  and  DRT . 

The  ERT  instruction  (op  code  002600)  enables  resource 
timing.  Execution  of  this  instruction  is  equivalent  to  issuing 
the  simulator  command  SET  TIMING=ON. 

The  DRT  instruction  (op  code  002700)  disables  resource  tim- 
ing, and  is  equivalent  to  the  simulator  command  SET  TIMING=OFF. 

Error  messages  are  printed  if  statement  syntax  is  not 
correct.  If  the  assembler  cannot  recognize  an  instruction,  two 
parcels  of  zero  are  generated  as  object  code. 
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by  Cray  Research,  Inc.  Publication  no.  2240000 


INSTRUCTION  SUMMARY  B 


CRAY  - 1 

CAL 

I'Ai.l 

UN  I T 

DLSCRin  m:. 

OOOxxx 

ERR 

S - 8 1 

- 

Error  exit 

*-000i  jk 

ERR  exp 

S - 8 1 

- 

Error  exit 

■ + + 0 0 1 0 i k 

CA.Aj 

Ak 

5-82 

Set  the  channel  (Ai)  current  address  to 
(AM  and  begin  the  I/O  sequence 

+ + oon  jk 

CE.Aj 

Ak 

5 83 

• 

Set  the  channel  L A j ) limit  address  to  F Ak  J 

+ + 0012jx 

Cl  , Aj 

5-83 

Clear  channel  (Aj)  interrupt  flag 

' *■  00 1 3 j X 

XA 

A j 

5-84 

- 

Enter  XA  register  with  (Aj) 

+ t 001 4 j x 

RT 

Sj 

5-84 

- 

Enter  real-time  clock  register  with  (Sj 

0020xk 

VL 

Ak 

5-25 

- 

Transmit  (Ak)  to  VL  register 

+0020x0 

VL 

1 

5-25 

Transmit  1 to  VL  register 

002 1 xx 

EF  I 

5-42 

- 

Enable  interrupt  on  floating  point  error 

0022  xx 

DEI 

5-42 

- 

Disable  interrupt  on  floating  point  error 

00  3 x j X 

VM 

Sj 

5-25 

- 

Transmit  (Sj)  to  VM  register 

+003x0  x 

VM 

0 

5-25 

- 

Clear  VM  register 

0 0 4 x x x 

EX 

5 80 

- 

Normal  exit 

-*004  i jk 

EX 

exp 

5-80 

- 

Normal  exit 

OOSxjk 

7 

Bjk 

5-77 

- 

Jump  to  (Bjk) 

00o i j km 

J 

exp 

5-77 

- 

Jump  to  exp 

007 i j km 

R 

exp 

5-^9 

Return  jump  to  exp,  set  BOO  to  P 

0 1 0 l j km 

JAZ 

exp 

5 "8 

Branch  to  exp  if  (A0)  * 0 

0 1 1 1 j km 

JAN 

exp 

5 - '8 

- 

Branch  to  exp  if  (A0)  ^ 0 

0 1 2 l j km 

JAP 

exp 

5-78 

Branch  to  exp  if  (A0)  positive 

0 1 3 i j km 

JAM 

exp 

5 "8 

Branch  to  exp  if  (Af<)  ne.  tive 

0 1 4 i i k m 

js: 

exp 

5 - ~H 

Branch  to  exp  if  (SO)  3 0 

0 1 5 l j km 

JSN 

exp 

5 - "*8 

Branch  to  exp  if  (S0>  + 0 

0 1 b 1 1 k m 

JSP 

exp 

5 '8 

- 

Branch  to  exp  if  (SO)  positive 

0 1 7 i i k m 

ISM 

exp 

5 - "M 

Branch  to  exp  if  (SO)  negative 

* * 020  t i km 

* i 

5-9 

transmit  c\p  - i km  to  \i 

+ + ) 2 1 i j k m ‘ 
! 

4i 

k 

exp 

5 - U 

Transmit  exp  = I’s  complement 
of  i k m to  A i 

* ♦ 0 2 2 i i k 

1 

5 9 

E ran  sin  it  exp  3 ik  to  Ai 

0 2 3 i i \ 

\i 

Si 

5 If* 

Transmit  ( S j ) to  4i 

0 2 4 iik 

Ai 

Hi  k 

*>  1 «• 

Transmit  (Bjk ) to  At 

02  5 i jk 

Rik 

\i 

5-22 

Transmit  (Ai)  to  Rik 

0 2 b i j x 

A » 

PS  j 

3 ~ b 

Pop/L: 

Population  count  of  (Si)  to  Ai 

02-1  i x 

Ai 

ZSj 

S - "(* 

Pop  a; 

Leading  zero  count  of  (Sj ) to  Ai 

0 .3  0 i j k 

\i 

A. . ♦Ak 

5 - 3 5 

A I n t 

Add 

Integer  sum  of  (Aj ) and  (Ak)  to  4i 

♦■0  30  i 0k 

\ l 

Ak 

5-15 

A ! nt 

Add 

Transmit  (Ak)  to  A l 

-0  30  l lO 

Ai 

AjM 

5 - 3 5 

A Int 

Add 

Integer  sum  of  (Aj)  and  1 to  Ai 

0 3 1 i .)  k 

A i 

\j  - Ak 

5-3d 

A Int 

Add 

Integer  difference  of  (Aj)  les<  ( \k i to  5i 

-*031 i 00 

Ai 

- 1 

5-9 

A Int 

Add 

Transmit  - 1 to  Ai 

031  lOk 

Ai 

-Ak 

5-15 

A Int 

Add 

Transmit  the  negative  of  (Ak)  to  Ai 

031  i jO 

Ai 

A j - 1 

5 - 3 b 

A Int 

Add 

Ir.tegcr  difference  of  (Aj ) less  1 to  4i 

0 32  lj  k 

A i 

Aj  * Ak 

5 - 30 

A Int 

Mult 

Integer  product  of  (Ai)  and  (Ak)  to  Ai 

x = Machine  does  not 

use  this  fi 

ie  1 d ; 

CAL 

generates  zero  in  this  pos  i t i >1 

t Special  syntax  form. 

ft  Instruction  020ijkm,  021ijkm,  022ijk,  or  031 i 00  is  generated  depending 
on  value  of  exp  as  described  in  section  5. 

t+t  Instruction  is  privileged  to  monitor  mode. 
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CRAY- 1 

CAL 

PAGE 

UNIT 

DESCRIPTION 

033i0x 

Ai 

Cl 

5-16 

- 

Channel  number  to  Ai  (j-0) 

03 3 i jO 

Ai 

CA.Aj 

5-17 

- 

Address  of  channel  (Aj)  to  Ai  (j^O;  k»0) 

033  u 1 

A i 

cn.Aj 

5-17 

- 

Error  flag  of  channel  (Aj)  to  Ai  (j>*0;  k»l) 

034  i i k 

Bjk.Ai 

, A0 

5-30 

Memory 

Read  (Ai)  words  to  B register  jk  from  (A0) 

* n 3 4 i i K 

5 i k , A i 

0 ,A0 

5-30 

Memory 

Read  (Ai)  words  to  B register  jk  from  (A0) 

0 3 5 l j k 

, A0 

Bjl  ,Ai 

5-27 

Memory 

Store  (Ai)  words  at  B register  jk  to  (A0) 

+ 035  i j k 

0,A0 

Bj  k , Ai 

5-27 

Memory 

Store  (Ai)  words  at  B register  jk  to  (A0) 

036  i j k 

Tjk.Ai 

, AO 

5-31 

Memory 

Read  (Ai)  words  to  T register  j k from  (A0) 

+ 036 i j k 

Tjk.Ai 

0 , AO 

5-31 

Memory 

Read  (Ai)  words  to  T register  jk  from  (A0) 

0 3 7 i l k 

,A0 

Tjk.Ai 

5-28 

Memory 

Store  (Ai)  words  at  T register  jk  to  (A0) 

+ 037  ij  k 

0 , A0 

Tjk.Ai 

5-28 

Memory 

Store  (Ai)  words  at  T register  jk  to  (A0) 

+ 7 04  0 i j km  j 

Si 

exp 

5- 10 

• 

Transmit  jkm  to  Si 

+ f04  1 i j km  1 

5-10 

- 

Transmit  exp  * 1 * s complement  of  jkm  to  Si 

04  2 i jk 

Si 

<exp 

5-12 

s 

Logical 

Form  1 • s mask  exp  = 64-jk  bits  in  Si  from 

Si 

# >exp 

the  right 

3042 i 77 

Si 

1 

5-11 

s 

Logical 

Enter  1 into  Si 

1 04  2 1 00 

S i 

-1 

5-11 

s 

Logical 

Enter  - 1 into  Si 

04  3 i j k 

Si 

>exp 

5-13 

s 

Logical 

Form  l’s  mask  exp  = jk  bits  in  Si  from 

Si 

* <exp 

the  left 

t04  3 i 00 

Si 

0 

5-11 

s 

Logical 

Clear  Si 

04  4 i jk 

Si 

SjSSk 

5-55 

s 

Log i ca 1 

Logical  product  of  (Sj)  and  (Sk)  to  Si 

+ 044i  j 0 

Si 

S j 6SB 

5-55 

s 

Logical 

Sign  bit  of  (Sj ) to  Si 

+ 04  4 i j 0 

Si 

SBSSj 

5-55 

s 

Logical 

Sign  bit  of  (Sj)  to  Si  (jj*0) 

+ 04  5 i j k 

Si 

#Sk6Sj 

5-57 

s 

Logical 

Logical  product  of  (Sj)  and  l’s 
complement  of  (Sk)  to  Si 

+045ij0 

Si 

*S*$Sj 

5-57 

s 

Logical 

(Sj)  with  sign  bit  cleared  to  Si 

0 4 6 i j k 

Si 

S;  \Sk 

5-59 

s 

Logical 

Logical  difference  of  (Sj)  and  (Sk)  to  Si 

+ 046  ij  0 

Si 

Sj\SB 

5-59 

s 

Logical 

Toggle  sign  bit  of  Sj , then  enter  into  Si 

+ 046  i J 0 

Si 

SB\  S j 

5-59 

s 

Logical 

Toggle  sign  bit  of  Sj , then  enter  into  Si  fi^Ol 

04 " i j k 

Si 

»Sj\Sk 

5-61 

s 

Logical 

Logical  equivalence  of  (Sk)  and  (Sj)  to  Si 

+047 iOk 

Si 

*Sk 

5-19 

s 

Logical 

Transmit  l*s  complement  of  (Sk)  to  Si 

*047  i jO 

Si 

*Sj\SB 

5-01 

s 

Logical 

Logical  equivalence  of  (Sj)  and  sign 
bit  to  Si 

+ 047  i i 0 

Si 

*SB\Sj 

5-61 

s 

Logical 

Logical  equivalence  of  (Sj)  and  sign 
bit  to  Si  ( j yo) 

*04' 100 

Si 

»SB 

5-14 

s 

Logical 

F.nter  l’s  complement  of  sign  bit  into  Si 

0 5 0 1 j k 

Si 

S j ! S i 6Sk 

5-64 

s 

Logical 

Logical  product  of  (Si)  and  (Sk)  complement 

ORed  with  logical  product  of  (Sj)  and  (Sk)  to  Si 

-050i  10 

Si 

sj isissB 

5-64 

s 

logical 

Scalar  merge  of  (si)  and  sign  bit  of  (Sj) 
to  Si 

051  i jk 

Si 

sj  :sk 

5 57 

s 

Logical 

Logical  sum  of  (Sj)  and  (Sk)  to  Si 

+051 iOk 

Si 

Sk 

5-18 

s 

log  i ca  1 

Transmit  (Sk)  to  Si 

*05 1 i j 0 

Si 

sj : sb 

5-57 

s 

Logical 

Logical  sum  of  (Sj)  and  sign  bit  to  Si 

+ 051  i jO 

Si 

SB  1 S j 

5-5  + 

s 

Logical 

Logical  sum  of  (Sj)  and  sign  bit  to  Si  ( j / 0 ) 

*05 1 l 00 

Si 

SB 

5-14 

s 

Logical 

Enter  sign  bit  into  Si 

052ijk 

SO 

S i< exp 

5-68 

s 

Shift 

Shift  (Si)  left  exp  * jk  places  to  SO 

05  3 i ik 

SO 

Si>exp 

5-68 

s 

Shift 

Shift  (St)  right  exp  • M ik  places  to  SO 

054  tik 

Si 

Si<exp 

5-69 

s 

Shift 

Shift  (Si)  left  exp  = i k places 

0 5 5 . j 1 

Si 

S i >cxp 

5-69 

s 

Shift 

Shift  (Si)  right  exp  = h 4 • j k places 

0 5 6 i i k 

Si 

Si , Si<  Ak 

5-  '0 

s 

Shift 

Shift  (Si  and  Si ) left  (Ak)  places  to  Si 

056  i j 0 

Si 

Si , S j < 1 

5 - "0 

s 

Shift 

Shift  (Si  and  Si)  left  one  place  to  Si 

+056 i 0k 

Si 

Si<Ak 

5-  '0 

s 

Shift 

Shift  (Si)  left  (Ak)  places  to  Si 

X = Machine  does  not  use  this  field;  CAL  generates  zero  in  this  position, 
t Special  syntax  form. 

++  Instruction  O^Oijkm  or  0**l  ijkm  is  generated  depending  on  value  of  exp. 
2240000  B-2  F 
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CRAY-1 

CAL 

PAGE 

UNIT 

DESCRIPTION 

057i]k 

Si 

Sj .Si  Ak 

S-71 

S Shift 

Shift  (Sj  and  Si)  right  (Ak)  places  to  Si 

tOS’ijO 

Si 

Sj ,Si»l 

S - 7 1 

S Shift 

Shift  (Sj  and  Si)  right  one  place  to  Si 

tOS’tOR 

Si 

Si>Ak 

S-71 

S Shift 

Shift  (Si)  right  (Ak)  places  to  Si 

061)  i j R 

St 

Sj^Sk 

S * 37 

S Int  Add 

Integer  sum  of  (Sj)  and  (Sk)  to  Si 

Oftli jk 

Si 

Sj-Sk 

S - 39 

S Int  Add 

Integer  difference  of  (Sj)  and  (Sk)  to  Si 

*001  i OR 

Si 

-Sk 

S-  18 

S Int  Add 

Transmit  negative  of  (Sk)  to  Si 

Oft  ,'1)R 

S i 

S) ♦ FSk 

S 42 

P.P.  Add 

Floating  sum  of  (Si)  and  (Sk)  to  Si 

*0»:  lOk 

♦ FSk 

5-42 

F.P.  Add 

Normalize  (Sk)  to  Si 

lift  1 1 t R 

S)  FSk 

3 44 

F.P.  Add 

Floating  difference  of  (Sj)  and  (Sk)  to  Si 

•On  1 4 J fc 

FSk 

S - 4 4 

F.P.  Add 

Transmit  normalized  negative  of  (Sk)  to  Si 

S j *FSk 

5 4ft 

F.P.  Mult 

Floating  product  of  (Sj)  and  (Sk)  to  Si 

•MSk 

3 48 

F.P.  Mult 

Half  precision  rounded  floating  product 
of  (Sj)  and  (Sk)  to  Si 

t 

v i •■Sk 

5 49 

F.P.  Mult 

Full  precision  rounded  floating  product 
of  (Sj)  and  (Sk)  to  Si 

S?«lSk 

5-51 

F.P.  Mult 

2 - Floating  product  of  (Sj)  and  (Sk)  to  Si 

HSi 

$-  $2 

F.P.  Rcpl 

Floating  reciprocal  approximation  of 
(Sj)  to  Si 

Kk 

S- 19 

- 

Transmit  (Ak)  to  Si  with  no  sign  extension 

• Ak 

S - 20 

- 

Transmit  (Ak)  to  Si  with  sign  extension 

• f Ak 

5 20 

- 

Transmit  (Ak)  to  Si  as  unnormalized 
floating  point  number 

• 1 

S-11 

- 

Transmit  constant  0.75*2**48  to  Si 

0 4 

Sll 

- 

Transmit  constant  0.5  to  Si 

S-11 

- 

Transmit  constant  1.0  to  Si 

5-11 

- 

Transmit  constant  2.0  to  Si 

t . 

5-11 

- 

Transmit  constant  4.0  to  Si 

■T 

5-22 

- 

Transmit  (RTC)  to  Si 

0**  5i  * » 

VM 

S - 22 

- 

Transmit  (VM)  to  Si 

0’4\jk 

Si 

T)k 

S - 2 1 

- 

Transmit  (Tjk)  to  Si 

0?S  1 ! k 

Tjk 

Si 

S * 2.3 

- 

Transmit  (Si)  to  Tjk 

0^6  l J k 

Si 

Vj  ,Ak 

5-21 

- 

Transmit  (Vj,  element  (Ak))  to  Si 

O^ljk 

Vi  .Ak 

Sj 

S - 24 

- 

Transmit  (Sj)  to  Vi  element  (Ak) 

♦CP' 'iOk 

Vi  ,AR 

0 

S- 14 

• 

Clear  Vi  element  (Ak) 

10hi)km 

Ai 

exp , Ah 

S-  32 

Memory 

Read  from  ((Ah)  ♦ exp)  to  Ai  (A0=0) 

* 1 0 0 x i k m 

Ai 

exp,0 

S - 32 

Memory 

Read  from  (exp)  to  Ai 

*1 00 1 _i  km 

Ai 

exp, 

S - 32 

Memory 

Read  from  (exp)  to  Ai 

*1  Oh 1 000 

Ai 

, Ah 

5-32 

Memory 

Read  from  (Ah)  to  Ai 

llhi  jkm 

exp , Ah 

Ai 

S - 28 

Memory 

Store  (Ai)  to  (Ah)  ♦ exp  (A0-0) 

+110i jkm 

exp  , 0 

Ai 

5-28 

Memory 

Store  (Ai)  to  exp 

tllOi j km 

exp, 

Ai 

5-28 

Memory 

Store  (Ai)  to  exp 

nihiOOO 

, Ah 

Ai 

S - 28 

Memory 

Store  (Ai)  to  (Ah) 

12hi jRm 

Si 

exp , Ah 

5-33 

Memory 

Read  from  ((Ah)  * exp)  to  Si  (A0*0) 

tl 20  x j km 

Si 

exp  ,0 

S-  33 

Memory 

Read  from  exp  to  Si 

tl20i jRm 

Si 

exp , 

5-33 

Memory 

Read  from  exp  to  Si 

tl  2hi  000 

Sx 

, Ah 

5-33 

Memory 

Read  from  (Ah)  to  Si 

1 3hi j km 

exp , Ah 

Si 

5-29 

Memory 

Store  (Si)  to  (Ah)  ♦ exp  (A0*0) 

+130i jkm 

exp , 0 

Si 

5-29 

Memory 

Store  (Si)  to  exp 

*1 .10  i j km 

exp  , 

Si 

5-29 

Memory 

Store  (Si)  to  exp 

tlJhiOOO 

, Ah 

Si 

5-29 

Memory 

Store  (Si)  to  (Ah) 

1401 j k 

Vi 

Sj&Vk 

5-56 

V Logical 

Logical  products  of  (Sj)  and  (Vk)  to  Vi 

+ 14  0100 

Vi 

0 

5-14 

V Logical 

Clear  Vi 

1 4 1 i j k 

Vi 

VjSVk 

5-56 

V Logical 

Logical  products  of  (Vj)  and  (Vk)  to  Vi 

x = Machine  does  not  use  this  field;  CAL  generates  zero  in  this  position, 
t Special  syntax  form. 
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CRAY- 1 

CAL 

PACE 

UNIT 

DESCRIPTION 

1421 jk 

Vi 

sj  :vk 

5-58 

V Logical 

Logical  sums  of  (Sj)  and  (Vk)  to  Vi 

+142i0k 

Vi 

Vk 

5-23 

V Logical 

Transmit  (Vk)  to  Vi 

1 4 3 i j k 

Vi 

Vj  ! Vk 

5-59 

V Logical 

Logical  sums  of  (Vj)  and  (Vk)  to  Vi 

14  4 i j k 

Vi 

Sj\Vk 

5-60 

V Logical 

Logical  differences  of  (Sj)  and  (Vk)  to  Vi 

1 4 S i j k 

Vi 

Vj\Vk 

5-61 

V Logical 

Logical  differences  of  (Vj)  and  (Vk)  to  Vi 

llhi  jk 

Vi 

Sj IVk&VM 

5 -OS 

V Logical 

Transmit  (Sj)  it  VM  bit  * 1,  (Vkj  if 

VM  bit  - 0 to  Vi 

+146iUk 

Vi 

#VM6Vk 

5-67 

V Logical 

Vector  merge  of  (Vk)  and  0 to  Vi 

1 4 7 i j k 

Vi 

Vj ! VkSVM 

5 -66 

V Logical 

Transmit  (Vj)  if  VM  bit  = 1;  (Vk)  if 

VM  bit  - 0 to  Vi 

1 50  i j k 

Vi 

V j <Ak 

5-72 

V Shift 

Shift  (Vj)  left  (Ak)  places  to  Vi 

tlSOijO 

Vi 

Vj<l 

5-72 

V Shift 

Shift  (Vj)  left  one  place  to  Vi 

ISlijk 

Vi 

Vj  >Ak 

5-73 

V Shift 

Shift  (Vj)  right  (Ak)  places  to  Vi 

tlSlijO 

Vi 

Vj>l 

5-73 

V Shift 

Shift  (Vj)  right  one  place  to  Vi 

15’ijk 

Vi 

Vj , Vj  <Ak 

5-73 

V Shift 

Double  shift  (Vj)  left  (Ak)  places  to  Vi 

* 1 52  i j 0 

Vi 

Vj .Vj  <1 

5-73 

V Shift 

Double  shift  (Vj)  left  one  place  to  Vi 

1 S 3 i j k 

Vi 

Vj , Vj  >Ak 

5-75 

V Shift 

Double  shift  (Vj)  right  (Ak)  places  to  Vi 

1 S 3 i j 0 

Vi 

Vj ,Vj>l 

5-75 

V Shift 

Double  shift  (Vj)  right  one  place  to  Vi 

1 5 4 i j k 

Vi 

S j *Vk 

5-38 

V Int  Add 

Integer  sums  of  (Sj)  and  (Vk)  to  Vi 

1 55  i j k 

Vi 

V j + Vk 

5-38 

V Int  Add 

Integer  sums  of  (Vj)  and  (Vk)  to  Vi 

1 56 i j k 

Vi 

Sj  -Vk 

5-39 

V Int  Add 

Integer  differences  of  (Sj)  and  (Vk)  to  Vi 

7 1 56 i 0k 

Vi 

-Vk 

5-40 

V Int  Add 

Transmit  negative  of  (Vk)  to  Vi 

1 5 7 i j k 

Vi 

Vj  -Vk 

5-40 

V Int  Add 

Integer  differences  of  (Vj)  and  (Vk)  to  Vi 

1 60  i j k 

Vi 

S j * FVk 

5-47 

F.P.  Mult 

Floating  products  of  (Sj)  and  (Vk)  to  Vi 

161  ij  k 

Vi 

Vj*FVk 

5-47 

F.P.  Mult 

Floating  products  of  (Vj)  and  (Vk)  to  Vi 

1 6 2 i j k 

Vi 

Sj*HVk 

5-48 

F.P.  Mult 

Half  precision  rounded  floating  products 
of  (Sj)  and  (Vk)  to  Vi 

1 6 3 i jk 

Vi 

Vj*HVk 

5-49 

F.P.  Mult 

Half  precision  rounded  floating  products 
of  (Vj)  and  (Vk)  to  Vi 

1 64  i j k 

Vi 

Sj*RVk 

5-50 

F.P.  Mult 

Rounded  floating  products  of  (Sj)  and 
(Vk)  to  Vi 

1 6 5 i j k 

Vi 

Vj*RVk 

5-50 

F.P.  Mult 

Rounded  floating  products  of  (Vj)  and 
(Vk)  to  Vi 

1 6 6 i j k 

Vi 

Sj*IVk 

5-51 

F.P.  Mult 

2 - floating  products  of  (Sj)  and 
(Vk)  to  Vi 

1 6 7 i j k 

Vi 

Vj  * IVk 

5-52 

F.P.  Mult 

2 - floating  products  of  (Vi)  and 
(Vk)  to  Vi 

1 1 0 li  k 

Vi 

Sj  +FVk 

5-43 

F.P.  Add 

Floating  sums  of  (Sj)  and  (Vk)  to  Vi 

* 1*0 1 0 k 

V l 

♦FVk 

5-43 

F.P.  Add 

Normalize  (Vk)  to  Vi 

1 7 1 i j k 

Vi 

Vj  *FVk 

5-44 

F.P.  Add 

Floating  sums  of  (Vj)  and  (Vk)  to  Vi 

1 7 2 i j k 

Vi 

Sj -FVk 

5-45 

F.P.  Add 

Floating  differences  of  (Sj)  and  (Vk)  to  Vi 

*172i0k 

Vi 

-FVk 

5-45 

F.P.  Add 

Transmit  normalized  negatives  of  (Vk)  to  Vi 

1 7 3 1 i k 

Vi 

Vj -FVk 

5-46 

F.P.  Add 

Floating  differences  of  (Vj ) and  (Vk)  to  Vi 

1 74  i j x 

Vi 

/HVj 

5-53 

F.P.  Rep  1 

Floating  reciprocal  approximations  of 
(Vj)  to  Vi 

1 7 5 x ; 0 

VM 

Vj.~ 

5-03 

V Logical 

VM  = 1 where  (Vj)  = 0 

1 7 S x j 1 

I'M 

V j . V 

5-03 

V Logical 

VM* 1 where  (Vj ) t 0 

1 75xj  2 

VM 

Vj.P 

5-63 

V Logical 

VM*1  where  (Vj)  positive 

1 7 5 x j 3 

VM 

Vj.” 

5-63 

V Logical 

VM* 1 where  (Vj)  negative 

1 76 i xk 

Vi 

,A0,Ak 

5-33 

Memory 

Read  (VL)  words  to  Vi  from  (A0) 
incremented  by  (Ak) 

*176ix0 

Vi 

, AO  , 1 

S-  33 

Memory 

Read  (VL)  words  to  Vi  from  (A0) 
incremented  by  1 

1 ’ 'x  j k 

, A0 , Ak 

Vj 

5-30 

Memory 

Store  (VL)  words  from  Vj  to  (A0) 
incremented  by  (Ak) 

* I 7 7x  j 0 

, A0 , 1 

Vj 

5-30 

Memory 

Store  (VL)  words  from  Vj  to  (A0) 
incremented  by  1 

x = Machine  does  not  use  this  field;  CAL  generates  ero  in  this  position. 


t Special  syntax  form. 
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SECTION  IV.  PSEUDO  OPS 


The  followinq  Pseudo-Ops  are  currently  accepted: 


Pseudo  Op 

sym  = exp 
ABS 

BASE  0,  D,  or  M 

BSS  n 

BSSZ  n 

CON  exp 

DATA  exp 

EJECT 

END 

ENTRY  label 
EXT  sym 
IDENT  name 
ORG  exp 
sym  SET  exp 
SPACE  n 
START  label 
SUBTITLE  'any  text' 
TITLE  'any  text' 


Meaning 

define  a symbol 
absolute  assembly 

use  base  octal,  decimal,  or  mixed 

reserve  n words  of  storage 

reserve  n words  of  zeroed  storage 

define  a full  word  integer  constant 

define  a full  word  floating  point  constant 

list  next  line  at  top  of  new  page 

end  of  routine 

specify  routine  entry  point 

identify  name  of  external  symbol 

specify  name  of  routine 

set  parcel  counter 

similar  to  =,  but  sym  may  be  redefined 
skip  n blank  lines  in  the  listing 
identify  program  starting  location 
specify  sub  title  to  appear  on  listing 
specify  title  to  appear  on  listing. 
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PSEUDO  OP 


Purpose:  To  define  a symbol 

Prototype:  sym  = expr  [,p|,w|,v] 

Description : 

The  expression  is  evaluated  as  described  in  section  II. 

If  the  expression  is  suffixed  with  ,P  or  ,W  or  ,V  the  express- 
ion is  converted  to  type  Parcel,  Word  or  Value.  The  symbol 
in  the  label  field  is  given  the  value,  type  and  attributes 
of  the  expression.  If  the  expression  contains  errors,  the 
symbol  will  remain  undefined. 

Examples : 

SYl  =3 
PADR  = 4A 

LEN  = W. * - W. TOP 

BASE  = ARRAY  - I MAX  - IMAX*JMAX 

ABS  PSEUDO  OP 

Purpose  : To  assemble  the  current  routine  as  an  absolute 
module 

Prototype  : ABS 
Description : 

Each  routine,  by  default,  is  assembled  as  a relocatable 
module.  If  ABS  occurs  anywhere  in  the  routine,  an  absolute 
module  will  be  produced.  The  simulator  will  load  the  module 
at  the  absolute  location  specified  by  the  ORG  pseudo  op. 

Example: 

ABS 


BASE  PSEUDO  OP 


Purpose  : To  specify  the  default  base  for  numeric 
constants 

Prototype  : BASE  [ 0 j D [ M ] * ] 

Description : 

The  default  base  for  constants  is  decimal.  Occurance 
of  a BASE  0, D or  M changes  the  base  to  Octal,  Decimal  or 
Mixed . 

When  a BASE  0,  D,  or  M is  encountered,  the  current 
base  is  pushed  on  to  a stack.  A BASE  * pseudo  pops  this 
stack.  The  stack  can  hold  at  most  20  entries. 

Examples : 

BASE  O 
BASE  * 


BSS  PSEUDO  OP 

Purpose  : To  reserve  words  of  storage 
Prototype  : label  BSS  v-expr 
Description : 

The  parcel  counter  is  full  word  aligned,  if  necessary. 

Then  it  is  advanced  v-expr  words.  The  v-expr  must  be  a posi- 
tive value.  This  v-expr  is  evaluated  during  pass  1,  so  symbols 
used  in  the  v-expr  must  be  defined  earlier  in  the  program. 

If  a label  is  present,  it  is  entered  into  the  symbol  table 
as  the  word  address  of  the  beginning  of  the  block. 

Examples : 

LAB  BSS  3 

BSS  2*  IDIM 
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BSSZ  Pseudo  OP 


Purpose  : To  reserve  words  of  storage  with  initial  value 
zero 

Prototype  : [label]  BSSZ  [v-expr] 

Description : 

The  parcel  counter  is  full  word  aligned,  if  necessary. 
Then,  v-expr  full  words  of  zero  are  generated.  The  v-expr 
must  be  a positive  value.  This  v-expr  is  evaluated  during 
pass  1,  so  symbols  used  in  the  v-expr  must  be  defined  earlier 
in  the  program. 

If  a label  is  present,  it  is  entered  into  the  symbol 
table  as  the  word  address  of  the  beginning  of  the  block. 

The  operand  field  may  be  omitted.  If  so,  it  is  assumed 
to  be  zero.  Note  that  full  word  alignment  still  takes  place. 

Examples : 

LAB  BSSZ  3 
BSSZ 


CON  PSEUDO  OP 


Purpose  : To  define  integer  or  character  constants 
Prototype  : [label]  CON  expri,expr  ...] 

Description : 

The  parcel  counter  is  full  word  aligned.  Each  expr 
is  evaluated,  and  a full  word  is  generated  containing  its 
value . 

If  label  exists,  it  is  defined  as  a word  address. 

Examples : 

LABL  CON  3 

CON  4, 7*8+2, 'CHARS' 


DATA  PSEUDO  OP 


Purpose  : To  define  floating  point  constants 
Prototype  : [label]  DATA  vl[,v2  ...] 

Description : 

The  parcel  counter  is  full  word  aligned.  Each  v is 
evaluated  as  a floating  point  constant,  and  a full  word  of 
storage  is  generated  containing  it.  The  host  machine's 
floating  point  format  is  used,  for  compatability  with  the 
simulator. 

If  the  label  exists,  it  is  defined  as  a word  address. 
Examples : 

PI  DATA  3 . 141S9 
DATA  2 . , 3 . , 4 . 


EJECT  PSEUDO  OP 


Purpose  : To  advance  the  listing  to  the  top  of  a new 
page 

Prototype  : EJECT 
Description : 

The  next  line  of  the  listing  will  be  at  the  top  of  the 
next  page.  If  the  next  line  to  be  printed  is  already  at  the 
top  of  a page,  the  EJECT  card  is  ignored. 


Example : 

EJECT 


END  PSEUDO  OP 


To  terminate  assembly  of  a routine 
END 


Purpose 
Prototype 
Description : 

Assembly  of  the  current  routine  is  terminated.  Gen- 
eration of  object  code  is  completed.  The  assembler  is  then 
initialized  to  assemble  another  routine  following  the  END 
record.  If  the  END  record  is  followed  by  an  end  of  file, 
the  assembler  terminates  normally. 

Example : 

END 


ENTRY  PSEUDO  OP 

Purpose  : To  indicate  symbols  in  the  routine  which  are 
to  be  available  for  use  by  other  routines. 
Prototype  : ENTRY  symbol 
Descritpion : 

The  symbol  in  the  operand  field  is  defined  as  an  entry 
point  to  the  current  routine.  It  is  available  for  use  by 
other  relocatable  modules.  It  may  be  either  a parcel  or 
word  address. 

If  the  current  routine  is  being  assembled  as  an  absolute 
module,  the  ENTRY  record  has  no  effect. 

Example : 

ENTRY  LOC  1 


EXT  PSEUDO  OP 


Purpose  : To  indicate  symbols  which  will  be  defined  by 
external  routines 
Prototype  : EXT  syml,sym  . ..] 

Description : 

The  symbols  in  the  operand  field  are  identified  as  ex- 
ternals, and  made  available  for  use  in  the  current  routine. 
The  symbols  will  be  resolved  at  load  time. 

If  the  current  routine  is  being  assembled  as  an  absolute 
module,  the  EXT  record  has  no  effect. 

Examples : 

EXT  SUBR 

EXT  LOG 10 , %SQRT% 


IDENT  PSEUDO  OP 


Purpose  : To  identify  the  name  of  the  current  module 
Prototype  : IDENT  name 
Description : 

Assembly  of  a new  routine  is  begun.  The  routine  is  given 
the  name  in  the  operand  field.  This  name  must  meet  the  same 
syntax  requirements  as  other  symbols.  It  may  be  used  as  a 
label,  but  these  uses  are  independent. 

No  statements  may  appear  before  an  IDENT  record.  If  there 
are  any,  they  will  be  treated  as  comments. 

Example : 

IDENT  MAIN 
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ORG  PSEUDO  OP 


Purpose  : To  give  a new  value  to  the  parcel  counter 
Prototype  : ORG  expr 
Description : 

The  expr  is  evaluated,  and  becomes  the  new  value  of 
the  parcel  counter.  The  expr  must  be  defined  during  pass 
1. 

The  expr  must  have  attributes  matching  the  type  of 
assembly  (absolute  or  relocatable) . 

The  parcel  counter  may  not  be  lowered  using  an  ORG. 

Examples : 

ORG  10  (Absolute  assembly) 

ORG  *+20  (Relocatable  assembly) 


SET  PSEUDO  OP 

Purpose  : To  define  a symbol 
Prototype  : sym  SET  expr 
Description : 

The  expression  is  evaluated.  The  symbol  in  the  label 
field  is  given  its  value. 

The  expression  must  be  defined  during  pass  1. 

Symbols  defined  using  the  SET  pseudo  may  be  re-defined. 

Examples : 

A SET  3 

COUNT  SET  COUNT+1 
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SPACE  PSEUDO  OP 


Purpose  : To  insert  blank  lines  into  the  listing 
Prototype  : SPACE  v-expr 
Description : 

The  v-expr  is  evaluated.  Then,  v-expr  blank  lines 
are  inserted  in  the  listing.  If  there  are  fewer  than 
v-expr  lines  remaining  on  the  current  page,  a simple 
EJECT  is  performed.  If  the  next  line  is  already  to  be 
listed  at  the  top  of  a page,  the  SPACE  record  is  ignored. 

If  the  current  base  is  mixed,  decimal  will  be  assumed. 

Example : 

SPACE  3 


START  PSEUDO  OP 

Purpose  : To  identify  the  current  module  as  the  module 
in  which  execution  is  to  begin. 

Prototype  : START  sym 
Description : 

The  current  module  will  be  used  as  the  first  module  to 
be  executed  when  execution  begins.  The  symbol  in  the  operand 
field  must  be  a parcel  address,  and  the  label  of  an  instruction 
in  the  current  module. 

The  START  pseudo  has  no  effect  during  absolute  assemblies. 

Example : 

START  LTOP 
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SUBTITLE  PSEUDO  OP 


Purpose  : To  specify  a subtitle  for  the  listing 

Prototype  : SUBTITLE  'any  text' 

Descript  ion : 

The  text  specified  will  be  printed  at  the  bottom  of 
each  page  of  listing  of  the  current  routine.  The  text 
within  quotes  may  consist  of  up  to  64  characters. 

A page  eject  is  also  performed. 

Example : 

SUBTITLE  'FOOTER  TEXT' 


TITLE  PSEUDO  OP 

Purpose  : To  specify  a title  for  the  listing 

Prototype  : TITLE  'any  text' 

Description : 

The  text  specified  will  be  printed  at  the  top  of  each 
page  of  listing  of  the  current  routine.  The  text  within 
quotes  may  consist  of  up  to  64  characters. 


Example : 

TITLE  'Square  Root  Routine' 
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Appendix  A. 
Load  Module  Formats 


1 


1 . Absolute  Modules 

An  absolute  load  module  is  composed  of  a header  record  and  one 
or  more  parcel  records.  The  header  record  is  composed  of  three  free 
formatted  fields:  a starting  parcel  address,  a module  length  and  an 
optional  title  as  shown  below. 

p-addr  length  [title-string] 

Each  field  is  separated  by  blanks.  The  p-addr  field  contains  a modi- 
fied octal  (octal  work  address  followed  by  an  A,B,C  or  D parcel  code) 
parcel  address  where  the  first  parcel  is  stored.  The  length  field 
contains  the  octal  number  of  parcels  following  on  subsequent  parcel 
records.  The  title-string  field  contains  the  title  that  is  placed  in 
the  title  field  of  the  CPACT  report  (also  see  the  SET  TITLE  = title- 
string command) . The  title  field  begins  with  the  first  character  after 
the  blank  which  terminates  the  length  field  and  may  contain  embedded 
blanks.  Only  the  first  35  characters  are  retained.  The  LOAD  command 
will  echo  the  header  record  information  to  the  output  device. 

The  parcel  record  portion  of  the  absolute  load  module  contains 
one  or  more  free  formatted  records.  One  or  more  parcels  may  be  pro- 
vided on  each  record  in  octal  or  modified  octal  format  and  must  be 
separated  by  at  least  one  space.  A colon  may  be  placed  anywhere  on 
a parcel  record  which  will  stop  the  scan  of  the  record  at  that  point. 
This  allows  comments  to  be  placed  to  the  right  of  the  colon.  Blank 
records  in  the  parcel  record  portion  are  ignored.  The  number  of  par- 
cels in  the  parcel  record  portion  of  the  load  module  must  correspond 
to  the  octal  length  specified  on  the  header  record. 

All  records  in  an  absolute  load  module  must  be  less  than  81  char- 
acters. Since  the  load  modules  are  represented  in  character  format 
it  is  a simple  matter  to  patch  a module  with  the  editor.  If  you  add 
or  delete  parcels,  you  must  update  the  octal  length  appropriately. 
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Example : 

21A  3 A TITLE 

• THIS  IS  AN  EXAMPLE  OF  A 3 PARCEL 

• 

• ABSOLUTE  LOAD  MODULE 

022133  032211  : Al  33  ; A2  Al*Al 

004000  : EX  O 

$ENDFILE 

2 . Relocatable  Modules 

Relocatable  modules  consist  of  seven  types  of  binary  records.  An  IDEN 
record,  one  or  more  TXT  records,  zero  or  more  RLD , EXT,  ENTR , and 
SYM  records,  and  an  END  record. 

An  IDEN  record  identifies  the  name  of  the  module.  The  record 
consists  of  the  characters  IDEN,  followed  by  4 spaces,  followed  by 
the  8 character  name  of  the  module. 

A TXT  record  contains  the  actual  object  code  to  be  loaded.  It 
consists  of  the  letters  TXT,  followed  by  one  space,  followed  by  a 
four  byte  binary  address  of  this  portion  of  the  module  (relative  to 
the  top  of  the  module) , followed  by  a four  byte  binary  length.  The 
actual  text  to  be  loaded  is  on  the  following  card. 

An  RLD  record  identifies  the  locations  in  the  module  which  must 
be  relocated.  It  consists  of  the  letters  RLD,  followed  by  one  space, 
followed  by  one  or  more  8 byte  fields.  The  first  4 bytes  of  the  field 
contain  the  binary  address  (relative  to  the  top  of  the  module)  of  the 
text  to  be  relocated.  The  second  4 bytes  contain  a number  describing 
the  type  of  relocation  to  be  performed.  See  RLD  & EXT  types,  below. 

An  EXT  record  identifies  the  locations  in  the  module  which  refer 
to  external  locations.  It  consists  of  the  letters  EXT,  followed  by  5 
spaces,  followed  by  one  or  more  16  byte  fields.  The  first  8 bytes  of 
the  field  contains  the  8 character  name  of  the  external  location  re- 
ferenced. The  next  four  bytes  contain  the  binary  address  (relative  to 
the  top  of  the  module)  of  the  text  referencing  the  external.  The  last 
4 bytes  contain  a number  describing  the  type  of  reference.  See  RLD  & 
EXT  types,  below. 

An  ENTR  record  identifies  entry  points  in  the  module.  It  consists 
of  the  letters  ENTR,  collowed  by  4 spaces,  followed  by  one  or  more  12 


byte  fields.  The  first  8 bytes  of  the  field  contain  the  name  of  the 
entry  point,  and  the  last  4 bytes  contain  the  address  (relative  to 
the  top  of  the  module)  of  the  entry  point. 

A SYM  record  contains  definitions  of  all  symbols  in  the  module 
which  may  be  referenced  by  the  simulator  command  language.  It  con- 
sists of  the  letters  SYM,  followed  by  5 spaces,  followed  by  one  or 
more  16  byte  fields.  The  first  8 bytes  contain  the  name  of  the  sym- 
bol. The  next  4 bytes  contain  the  value  of  the  symbol.  The  last  4 
bytes  contain  a number  identifying  the  type  of  the  symbol.  See  SYM 
types,  below. 

An  END  record  terminates  the  module.  It  consists  of  the  letters 
END,  followed  by  1 space.  If  a START  pseudo  op  was  contained  in  the 
program,  the  next  4 bytes  contain  an  address  (relative  to  the  top  of 
the  module)  of  the  starting  location. 


RLD  and  EXT  types:  1 

2 

3 

4 


Two  parcel,  parcel  address 
Two  parcel,  word  address 
Four  parcel,  parcel  address 
Four  parcel,  word  address 


SYM  types: 


1:  Parcel 

2:  Value 
3 : Word 
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Appendix  B.  Error  Messages 

NOTE:  Warning  messages  are  indicated  by  (w) . 

1.  Pass  1 error  messages 

(w)  LINE  LONGER  THAN  90  CHARACTERS  TRUNCATED 

An  input  line  was  too  long.  Characters  after  Column 
90  will  be  removed, 

(w)  NO  END  CARD 

An  end  card  will  be  supplied, 

2.  Pass  2 error  messages 

(w)  OLD  STYLE  B OR  T BLOCK  TRANSFER  ENCOUNTERED 

An  old  B or  T transfer  will  be  assembled  correctly, 

• but  should  be  converted  to  the  new  style. 

UNRECOGNIZABLE  INSTRUCTION 

The  assembler  could  not  recognize  the  instruction. 

It  will  be  assembled  as  two  parcels  of  zero's. 

(w)  SYMBOL  HAS  TOO  MANY  CHARACTERS,  TRUNCATED. 

The  symbol  being  defined  was  more  than  8 characters.  Only 
the  first  8 will  be  used. 

INVALID  SYMBOL  SYNTAX 

The  symbol  being  defined  starts  with  or  contains  illegal 
characters . 


J 
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ATTEMPT  TO  REDEFINE  SYMBOL 


Only  symbols  defined  with  the  SET  pseudo  op  may  be 
redef ined . 

I FIELD  OUT  OF  RANGE:  n 

I field  must  be  between  0 and  7,  inclusive, 

J FIELD  OUT  OF  RANGE:  n 

J field  must  be  between  0 and  7,  inclusive. 

K FIELD  OUT  OF  RANGE:  n 

K field  must  be  between  0 and  7,  inclusive. 

INVALID  I FIELD 

I field  was  neither  numeric  nor  .SYM:  or  SYM  was 
undefined;  or  SYM  was  not  of  type  value. 

INVALID  J FIELD 

J field  was  neither  numeric  nor  .SYM;  or  SYM  was 
undefined;  or  SYM  was  not  of  type  value. 

DUPLICATE  I FIELDS  DO  NOT  MATCH 

An  instruction  requiring  the  appearance  of  the  I field 
twice  contained  different  values  for  each  field. 
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INVALID  K FIELD 


K field  was  neither  numeric  nor  .SYM;  or  SYM 
was  undefined;  or  SYM  was  not  of  type  value. 

DUPLICATE  J FIELDS  DO  NOT  MATCH 

An  instruction  requiring  the  appearance  of  the  J 
field  specifier  twice  contained  different  values 
for  each  field. 

INVALID  K FIELD 

K field  was  neither  numeric  nor  .SYM;  or  SYM  was 
undefined;  or  SYM  was  not  of  type  value. 

JK  FIELD  OUT  OF  RANGE:  n 

JK  field  must  be  between  0 and  63,  inclusive. 

INVALID  JK  FIELD 

JK  field  was  neither  numeric  nor  .SYM;  or  SYM  was 
undefined;  or  SYM  was  not  of  type  value. 

SHIFT  COUNT  OUT  OF  RANGE: 

Explicit  shift  counts  must  be  between  0 and  63,  inclusive. 
INVALID  SHIFT  COUNT 

Shift  count  was  neither  numeric  nor  a symbol  of  type  value. 
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INVALID  P ADDRESS 


P address  specified  had  illegal  explicit  address  syntax, 
or  referenced  a symbol  which  was  undefined  or  was  of 
type  word  address. 

INVALID  WORD  ADDRESS 

Word  address  specified  had  illegal  explicit  address  syntax, 
or  referenced  a symbol  which  was  undefined  or  was  of  type 
parcel  address. 

H FIELD  OUT  OF  RANGE:  n 

H field  must  be  between  0 and  7,  inclusive. 

INVALID  H.  FIELD 

H field  was  neither  numeric,  nor  .SYM;  or  SYM  was  undefined; 
or  SYM  was  not  of  type  value. 

IJK  FIELD  OUT  OF  RANGE:  n 

IJK  field  must  be  between  0 and  511,  inclusive. 

INVALID  IJK  FIELD 

IJK  field  was  neither  numeric  nor  a symbol  of  type  value. 

UNDEFINED  EXPRESSION 

Expression  could  not  be  evaluated. 

BASE  STACK  OVERFLOW 

The  base  stack  exceeded  the  20  entries.  First  stack  entries 
will  be  lost. 
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ILLEGAL  BASE 


Base  specified  must  be  D,  I,  or  M. 
xxx  NOT  YET  SUPPORTED 

The  pseudo  op  referenced  is  not  implemented. 

INVALID  BSS  COUNT 

BSS  count  must  be  explicit  number,  or  symbol  of  type  value. 
INVALID  BSSZ  COUNT 

BSSZ  count  must  be  explicit  number,  or  symbol  of  type  value. 
INVALID  CONSTANT 

Operand  field  of  CON  pseudo  op  could  not  be  evaluated. 

PROGRAMMER  FORCED  ERROR 

ERROR  pseudo  op  encountered. 

ILLEGAL  IDENT  NAME 

Name  started  with  or  contained  invalid  characters. 

INVALID  SPACE  COUNT 

Space  count  was  neither  explicit  positive  number  ncr 
symbol  of  type  value. 

INVALID  ORG 

Address  must  be  explicit  value  or  symbol  of  type  value;  or 
address  is  less  than  current  address. 
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INVALID  STARTING  LOCATION 


Symbol  invalid  or  undefined. 

MISSING  OR  BAD  TITLE 

Title  must  be  surrounded  by  primes  and  contain  64  or 
fewer  characters. 

MISSING  OR  BAD  SUBTITLE 


Subtitle  must  be  surrounded  by  primes  and  contain 
64  or  fewer  characters. 

3.  Internal  Assembler  Errors 


END  OF  DESCRIPTOR  UNEXPECTED.  ERROR  IN  FILL 


CHARACTER  MATCH  FAILED 
EXPECTING  4,  NOT  FOUND 
EXPECTING  6,  NOT  FOUND 
EXPECTING  1,  NOT  FOUND 
EXPECTING  • , NOT  FOUND 
EXPECTING  2,  NOT  FOUND 
SPECIAL  DESCRIPTOR  ENCOUNTERED 


Appendix  C.  Instruction  Tables 

The  assembler  uses  a table  driven  parser.  The  tables  are 
prepared  from  a file  containing  instruction  description 

1 . Description  file  contents 

Each  line  of  the  description  file  contains  information 
about  one  instruction  or  pseudo-op. 


The 

type  of  instruction  is  contained  in  column  1 

, The  types 

defined  as  follows: 

1. 

single  parcel  instruction 

2. 

two  parcel  instruction 

3. 

Ai  exp  instruction 

4. 

Si  exp  instruction 

5. 

Pseudo  Op 

6. 

Old  style  block  B or  t transfer 

The 

result  field  instruction  prototype 

begins  in 

Column  5 

and  the  operand  prototype  begins  in  Column  30.  Each  is  no  more 
than  8 characters.  An  instruction  prototype  is  formed  for  an 
instruction  by  replacing  all  digits  or  strings  of  digits  with  a 
single  zero  and  any  ,SYM  field  with  a single  zero. 

The  result  field  descriptor  begins  in  Column  15,  and  the 
operand  field  descriptor  begins  in  Column  40.  Each  is  no  more 
than  10  characters.  Each  character  describes  the  nature  of  the 
corresponding  prototype  character.  The  valid  descriptor 
characters  and  meanings  are: 


C exact  character  match  with  prototype 

I I field  of  instruction 

J J field  of  instruction 

K K field  of  instruction 

L JK  field  of  instruction 

V shift  count 

P parcel  address  expression 
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W word  address  expression 

H H field  of  instruction 

M IJK  field  of  instruction 

F exact  character  match  with  4 

S exact  character  match  with  6 

0 exact  character  match  with  1 

D exact  character  match  with  • 

T exact  character  match  with  2 

U exact  character  match  with  4 

Q 64-JK  field  (shift  counts) 

R JK-1  field  (old  B & T transfers) 

^ special,  not  currently  used. 

X end  at  descriptor 

The  instruction  op-code  is  in  Columns  50-55.  Note  that  pseudo 
ops  have  been  given  op  codes  for  internal  use. 

2.  Generation 


A program  (not  strictly  part  of  the  assembler)  converts 
the  description  file  into  a condensed  binary  representation 
which  in  turn  is  used  by  the  assembler.  The  description  file 
must  first  be  sorted  by  result  prototypes,  with  groups  having 
identical  result  prototypes  being  sorted  by  operand  prototypes. 
The  mnemonic  table  generator  reads  the  sorted  description  file 
from  unit  5,  and  produces  the  mnemonic  tables  on  unit  7. 
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ix  D.  Error  Stops 


The  cross  assembler  makes  a number  of  checks  on  itself 
during  normal  operation.  If  one  of  these  checks  fails,  it  in- 
dicates a problem  within  the  assembler.  The  stop  codes  which 
will  be  printed  and  their  meanings  are  presented  below. 


Routine  Name 

COLDST 

STXTND 

INIT1 

DEC0D1 

WINTR 

COLDST 

INIT1 

GETPAR 

COLDST 

COLDST 

PSUD01 

PSUD02 

GTNL2 

DEC0D2 

ERROR 

TYCONV 

FILL 

COLDST 

FILLP1 

EMIT 


Stop  Code  Meaning 

101  Unable  to  initialize  dynamic  arrays 

102  Unable  to  extend  dynamic  arrays 

103  Unable  to  create  dynamic  arrays 

104  Unknown  instruction  type  encountered 

105  End  of  file  during  write  to  intermediate  file 

106  Unable  to  open  intermediate  file 

107  Error  during  empty  of  intermediate  file 

109  Error  return  from  FINDST 

110  End  of  file  during  read  from  mnemonic  file 

111  Incorrect  record  length  from  mnemonic  file 

112  Unknown  pseudo  op  type 

112  Unknown  pseudo  op  type 

113  End  of  file  during  read  from  intremediate  file 

114  Unknown  instruction  type  encountered 

116  No  message  delimiter  (X) 

117  Conversion  between  unknown  types 

119  Unknown  descriptor  element 

120  Mnemonic  tables  too  small 

121  Address  field  of  1 parcel  instruction  not  zero 

122  End  of  file  during  write  to  object  file 


Appendix  E.  Program  Availability 


The  cross  assembler  is  written  in  Fortran-IV,  and 
contains  about  3000  lines  of  source  code.  On  the  Amdahl 
470/V6  at  the  University  of  Michigan,  about  40K  (32-bit  words) 
of  run-time  memory  is  required. 

The  assembler  is  mildly  dependent  on  the  operating 
system  (MTS)  running  at  the  University  of  Michigan.  The 
assembler  and  documentation  of  machine  dependent  portions 
are  available  on  9 track  tape  (800,  1600,  or  6250  BPI) 
from: 


Professor  D.  A.  Calahan 
2510  E.  Engineering 
University  of  Michigan 
Ann  Arbor,  Michigan  48109 


